home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch5 / sortfield.eg < prev    next >
Text File  |  1991-01-08  |  243b  |  9 lines
  1. @data = split(/\n/, `cat /etc/passwd`);
  2. local(@datakeys);
  3. foreach (@data) {
  4.     push(@datakeys, (split(/:/))[2]);
  5. }
  6. sub bydatakeys { $datakeys[$a] <=> $datakeys[$b]; }
  7. @sortdata = @data[sort bydatakeys $[..$#data];
  8. print join("\n",@sortdata);
  9.